home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1990 March / 64er_Magazin_90-03_1990_Markt__Technik_de_Side_A.d64 / c-64 maske (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-01-01  |  947 b   |  21 lines
  1. 60000 max=val(left$(in$,2)):x=val(mid$(in$,4,5)):br=val(mid$(in$,7,8)):tem=58640
  2. 60010 usb=val(mid$(in$,10,10)):txt$=mid$(in$,12,len(in$)):
  3. 60020 s$="":amax=max:y=br+len(txt$):max=br+max+len(txt$):ay=y+1
  4. 60030 fl$="                                                                        "
  5. 60040 if jg=0 then jg=1:poke 214,x:poke 211,y:system:print left$(fl$,amax)
  6. 60050 poke214,x:poke211,br:system:printtxt$:p$=chr$(95):q$=chr$(20)
  7. 60060 if y=max then fl=1
  8. 60070 poke214,x:poke211,y:system:print" [146]":get a$:if a$="" then 60070
  9. 60080 ifa$=q$andy>=aytheny=y-1:s$=left$(s$,len(s$)-1):poke214,x:poke211,y+1:system:kk=1
  10. 60090 ifa$=q$ and kk=1 then print" ":fl=0:kk=0:goto60060
  11. 60100 ifa$=p$thenpoke214,x:poke211,ay-1:system:print left$(fl$,amax+1)
  12. 60110 ifa$=p$thenpoke214,x:poke211,ay-1:system:print" [146]":y=ay-1:max=amax:fl=0:goto60000
  13. 60120 ifa$=chr$(13)thenpoke214,x:poke211,y:system:print" ":usb=0:fl=0:return
  14. 60130 if fl=1 then 60060
  15. 60140 ch=asc(a$):if usb=0 or usb=1 then if a$=chr$(32) then 60190
  16. 60150 ifusb=0orusb=1thenifch>64andch<91then60190
  17. 60160 ifusb=0orusb=1thenifch>192andch<219then60190
  18. 60170 ifusb=0orusb=2thenifch<33orch>65then60060
  19. 60180 ifusb=1then60060
  20. 60190 poke214,x:poke211,y:system:printa$:y=y+1:s$=s$+a$:goto60060
  21.